Introduce eglot--debug for unimportant messages

* eglot.el (eglot--debug): New function to log noisy or trivial
messages to the eglot events buffer.

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 189ad1e5aae0b6c7657bddb8ff17dee7b061912b..92f16c0d04f499e827754e32924c729841649a06 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -774,6 +774,10 @@ DEFERRED is passed to `eglot--async-request', which see."
   (let ((warning-minimum-level :error))
     (display-warning 'eglot (apply #'format format args) :warning)))
 
+(defun eglot--debug (server format &rest args)
+  "Warning message with FORMAT and ARGS."
+  (eglot--log-event server `(:message ,(format format args))))
+
 (defun eglot--pos-to-lsp-position (&optional pos)
   "Convert point POS to LSP position."
   (save-excursion